4  REM APPLESOFT BASIC VERSION BY CHRIS TORRENCE
5  REM CODE DOWNLOADED APRIL 2015 FROM INTERNET ARCHIVE:
6  REM HTTPS://ARCHIVE.ORG/DETAILS/200106-TOPS10-IN-A-BOX
7  REM
8  REM       MINNESOTA EDUCATIONAL COMPUTING CONSORTIUM STAFF
9  REM  PROGRAMMING REVISIONS BY DON RAWITSCH - 1975
11  REM  CURRENT VERSION - 3/27/75
15  REM  **FOR THE MEANING OF THE VARIABLES USED, LIST LINES 4900-4960**
20  SPEED = 180 : REM [CT] SLOW DOWN TO TERMINAL SPEED
25  PRINT "DO YOU NEED INSTRUCTIONS  (YES/NO)";
30  REM [CT] DIM C$[5]
35  INPUT C$
40  IF C$="NO" OR C$="N" THEN 400
45  PRINT: PRINT
59  REM ***INSTRUCTIONS***
60  PRINT "THIS PROGRAM SIMULATES A TRIP OVER"
62  PRINT "THE OREGON TRAIL FROM INDEPENDENCE,"
64  PRINT "MISSOURI TO OREGON CITY, OREGON"
66  PRINT "IN 1847. YOUR FAMILY OF FIVE WILL"
70  PRINT "COVER THE 2000 MILE OREGON TRAIL"
75  PRINT "IN 5-6 MONTHS --- IF YOU MAKE IT ALIVE."
80  PRINT
85  PRINT "YOU HAD SAVED $900 TO SPEND FOR THE"
87  PRINT "TRIP, AND YOU'VE JUST PAID $200 FOR"
90  PRINT "A WAGON."
95  PRINT "YOU WILL NEED TO SPEND THE REST OF YOUR"
100  PRINT "MONEY ON THE FOLLOWING ITEMS:"
105  PRINT : INPUT "PRESS <RETURN>..."; C$
110  PRINT "OXEN - YOU CAN SPEND $200-$300 ON YOUR"
115  PRINT "       TEAM. THE MORE YOU SPEND, THE"
117  PRINT "       FASTER YOU'LL GO BECAUSE YOU'LL"
120  PRINT "       HAVE BETTER ANIMALS."
125  PRINT
130  PRINT "FOOD - THE MORE YOU HAVE, THE LESS"
135  PRINT "       CHANCE THERE IS OF GETTING SICK."
140  PRINT
145  PRINT "AMMUNITION - $1 BUYS A BELT OF 50"
150  PRINT "       BULLETS. YOU WILL NEED BULLETS"
152  PRINT "       FOR ATTACKS BY ANIMALS AND"
155  PRINT "       BANDITS, AND FOR HUNTING FOOD."
160  PRINT
165  PRINT "CLOTHING - THIS IS ESPECIALLY IMPORTANT"
170  PRINT "       FOR THE COLD WEATHER YOU WILL"
175  PRINT "       ENCOUNTER WHEN CROSSING THE"
177  PRINT "       MOUNTAINS."
180  PRINT
185  PRINT "MISCELLANEOUS SUPPLIES - THIS INCLUDES"
190  PRINT "       MEDICINE AND OTHER THINGS YOU"
195  PRINT "       WILL NEED FOR SICKNESS AND"
197  PRINT "       EMERGENCY REPAIRS."
205  PRINT : INPUT "PRESS <RETURN>..."; C$
207  PRINT : PRINT
210  PRINT "YOU CAN SPEND ALL YOUR MONEY BEFORE YOU"
215  PRINT "START YOUR TRIP - OR YOU CAN SAVE SOME"
217  PRINT "OF YOUR CASH TO SPEND AT FORTS ALONG"
220  PRINT "THE WAY WHEN YOU RUN LOW. HOWEVER,"
225  PRINT "ITEMS COST MORE AT THE FORTS. YOU CAN"
227  PRINT "ALSO GO HUNTING ALONG THE WAY TO GET"
230  PRINT "MORE FOOD."
235  PRINT "WHENEVER YOU HAVE TO USE YOUR TRUSTY"
237  PRINT "RIFLE ALONG THE WAY, YOU WILL SEE THE"
240  PRINT "WORDS: 'TYPE BANG'. THE FASTER YOU TYPE"
245  PRINT "IN THE WORD 'BANG' AND HIT THE 'RETURN'"
247  PRINT "KEY, THE BETTER LUCK YOU'LL HAVE WITH"
250  PRINT "YOUR GUN."
260  PRINT
261  PRINT "WHEN ASKED TO ENTER MONEY AMOUNTS,"
262  PRINT "DON'T USE A '$'."
263  PRINT
265  PRINT "GOOD LUCK!!!"
399  REM ***INITIAL PURCHASES***
400  X1=-1
405  K8=0:S4=0:F1=0:F2=0:M=0:M9=0:D3=0
407  G$ = CHR$(7)
408  GOSUB 4800
410  PRINT
415  PRINT: PRINT "HOW MUCH DO YOU WANT TO SPEND"
420  INPUT "ON YOUR OXEN TEAM (200-300)? "; A
425  IF A >= 200 THEN 440
430  PRINT "NOT ENOUGH"
435  GOTO 415
440  IF A <= 300 THEN 455
445  PRINT "TOO MUCH"
450  GOTO 415
455  PRINT: PRINT "HOW MUCH DO YOU WANT TO SPEND"
460  INPUT "ON FOOD? "; F
470  IF F >= 0 THEN 485
475  PRINT "IMPOSSIBLE"
480  GOTO 455
485  PRINT: PRINT "HOW MUCH DO YOU WANT TO SPEND"
490  INPUT "ON AMMUNITION? "; B
495  IF B >= 0 THEN 510
500  PRINT "IMPOSSIBLE"
505  GOTO 485
510  PRINT: PRINT "HOW MUCH DO YOU WANT TO SPEND"
515  INPUT "ON CLOTHING? "; C
520  IF C >= 0 THEN 535
525  PRINT "IMPOSSIBLE"
530  GOTO 510
535  PRINT: PRINT "HOW MUCH DO YOU WANT TO SPEND"
540  INPUT "ON MISCELLANEOUS SUPPLIES? "; M1
545  IF M1 >= 0 THEN 560
550  PRINT "IMPOSSIBLE"
555  GOTO 535
560  T=700-A-F-B-C-M1
565  IF T >= 0 THEN 580
570  PRINT: PRINT "YOU OVERSPENT--YOU ONLY HAD"
572  PRINT "$700 TO SPEND.  BUY AGAIN"
575  GOTO 410
580  B=50*B
585  PRINT: PRINT "AFTER ALL YOUR PURCHASES,"
587  PRINT "YOU NOW HAVE ";T;" DOLLARS LEFT"
590  PRINT
595  PRINT "MONDAY MARCH 29 1847"
600  PRINT
605  GOTO 1000
700  IF M >= 2040 OR D3>=17 THEN 4000
709  REM ***SETTING DATE***
710  D3=D3+1
715  PRINT
720  PRINT "MONDAY ";
725  IF D3>10 THEN 735
730  ON D3 GOTO 740,750,760,770,780,790,800,810,820,830
735  ON D3-10 GOTO 840,850,860,870,880,890,900
740  PRINT "APRIL 12 ";
744  GOTO 910
750  PRINT "APRIL 26 ";
755  GOTO 910
760  PRINT "MAY 10 ";
765  GOTO 910
770  PRINT "MAY 24 ";
775  GOTO 910
780  PRINT "JUNE 7 ";
785  GOTO 910
790  PRINT "JUNE 21 ";
795  GOTO 910
800  PRINT "JULY 5 ";
805  GOTO 910
810  PRINT "JULY 19 ";
815  GOTO 910
820  PRINT "AUGUST 2 ";
825  GOTO 910
830  PRINT "AUGUST 16 ";
835  GOTO 910
840  PRINT "AUGUST 31 ";
845  GOTO 910
850  PRINT "SEPTEMBER 13 ";
855  GOTO 910
860  PRINT "SEPTEMBER 27 ";
865  GOTO 910
870  PRINT "OCTOBER 11 ";
875  GOTO 910
880  PRINT "OCTOBER 25 ";
885  GOTO 910
890  PRINT "NOVEMBER 8 ";
895  GOTO 910
900  PRINT "NOVEMBER 22 ";
910  PRINT "1847"
915  PRINT
999  REM ***BEGINNING EACH TURN***
1000  IF F >= 0 THEN 1015
1010  F=0
1015  IF B >= 0 THEN 1025
1020  B=0
1025  IF C >= 0 THEN 1035
1030  C=0
1035  IF M1 >= 0 THEN 1045
1040  M1=0
1045  IF F >= 12 THEN 1055
1050  PRINT "YOU'D BETTER DO SOME HUNTING OR"
1052  PRINT "BUY FOOD AND SOON!!!!"
1055  F=INT(F)
1060  B=INT(B)
1065  C=INT(C)
1070  M1=INT(M1)
1075  T=INT(T)
1080  M=INT(M)
1085  M2=M
1090  IF S4=1 THEN 1105
1095  IF K8=1 THEN 1105
1100  GOTO 1130
1105  T=T-20
1110  IF T<0 THEN 3520
1115  PRINT "DOCTOR'S BILL IS $20"
1120  K8=0:S4=0
1130  IF M9=1 THEN 1145
1135  PRINT "TOTAL MILEAGE IS ";M
1140  GOTO 1160
1145  PRINT "TOTAL MILEAGE IS 950"
1150  M9=0
1160  PRINT "FOOD  BULLETS  CLOTHING  SUPPLIES  CASH"
1165  PRINT " ";INT(F);: HTAB 9: PRINT INT(B);: HTAB 19: PRINT INT(C);
1166  HTAB 29: PRINT INT(M1);: HTAB 37: PRINT INT(T): PRINT
1300  IF X1=-1 THEN 1350
1305  X1=X1*-1
1310  PRINT "DO YOU WANT TO"
1312  PRINT "  (1) STOP AT THE NEXT FORT"
1313  PRINT "  (2) HUNT"
1315  PRINT "  (3) CONTINUE"
1320  INPUT X
1325  IF X>2 THEN 1340
1330  IF X<1 THEN 1340
1332  X=INT(X)
1335  GOTO 1400
1340  X=3
1345  GOTO 1400
1350  PRINT "DO YOU WANT TO (1) HUNT OR (2) CONTINUE"
1355  INPUT X
1360  IF X=1 THEN 1370
1365  X=2
1370  X=X+1
1375  IF X=3 THEN 1395
1380  IF B>39 THEN 1395
1385  PRINT "TOUGH---YOU NEED MORE BULLETS"
1387  PRINT "TO GO HUNTING"
1390  GOTO 1350
1395  X1=X1*-1
1400  ON X GOTO 1500,1700,1800
1499  REM ***STOPPING AT FORT***
1500  PRINT "ENTER WHAT YOU WISH TO SPEND"
1502  PRINT "ON THE FOLLOWING"
1505  PRINT "FOOD";
1510  GOSUB 1520
1515  GOTO 1555
1520  INPUT "? ";P
1525  IF P<0 THEN 1550
1530  T=T-P
1535  IF T >= 0 THEN 1550
1537  PRINT "YOU DON'T HAVE THAT MUCH--"
1538  PRINT "KEEP YOUR SPENDING DOWN"
1540  T=T+P
1545  P=0
1550  RETURN
1555  F=F+2/3*P
1560  PRINT "AMMUNITION";
1565  GOSUB 1520
1570  B=INT(B+2/3*P*50)
1575  PRINT "CLOTHING";
1580  GOSUB 1520
1585  C=C+2/3*P
1590  PRINT "MISCELLANEOUS SUPPLIES";
1595  GOSUB 1520
1600  M1=M1+2/3*P
1605  M=M-45
1610  GOTO 1800
1699  REM ***HUNTING***
1700  IF B>39 THEN 1715
1705  PRINT "TOUGH---YOU NEED MORE BULLETS"
1707  PRINT "TO GO HUNTING"
1710  GOTO 1310
1715  M=M-45
1720  GOSUB 4500
1725  IF B1 <= 1 THEN 1755
1730  IF 100*RND(1)<13*B1 THEN 1780
1735  F=F+48-2*B1
1740  PRINT "NICE SHOT--RIGHT THROUGH THE NECK"
1742  PRINT "--FEAST TONIGHT!!"
1745  B=B-10-3*B1
1750  GOTO 1800
1752  REM **BELLS IN LINE 1755**
1755  PRINT "RI";G$;"GHT BETWEE";G$;"N THE EYE";G$;"S"
1757  PRINT "---YOU GOT A";G$;" BIG ONE!!";G$;"!!"
1765  F=F+52+RND(1)*6
1770  B=B-10-RND(1)*4
1775  GOTO 1800
1780  PRINT "SORRY---NO LUCK TODAY"
1800  IF F >= 13 THEN 1900
1805  GOTO 3500
1899  REM ***EATING***
1900  PRINT : PRINT "DO YOU WANT TO EAT"
1902  PRINT "(1) POORLY (2) MODERATELY OR (3) WELL"
1905  INPUT E
1910  IF E>3 THEN 1900
1915  IF E<1 THEN 1900
1920  E=INT(E)
1930  F=F-8-5*E
1935  IF F >= 0 THEN 2000
1940  F=F+8+5*E
1945  PRINT "YOU CAN'T EAT THAT WELL"
1950  GOTO 1900
2000  M=M+200+(A-220)/5+10*RND(1)
2005  L1=0:C1=0
2099  REM ***RIDERS ATTACK***
2100  IF RND(1)*10>((M/100-4)^2+72)/((M/100-4)^2+12)-1 THEN 2500
2102  PRINT
2105  PRINT "RIDERS AHEAD. THEY ";
2110  S5=0
2115  IF RND(1)<.8 THEN 2130
2120  PRINT "DON'T ";
2125  S5=1
2130  PRINT "LOOK HOSTILE."
2135  PRINT "TACTICS:"
2140  PRINT "(1) RUN       (2) ATTACK"
2142  PRINT "(3) CONTINUE  (4) CIRCLE WAGONS"
2145  PRINT "IF YOU RUN YOU'LL GAIN TIME BUT"
2147  PRINT "WEAR DOWN YOUR OXEN."
2150  PRINT "IF YOU CIRCLE YOU'LL LOSE TIME."
2155  IF RND(1)>.2 THEN 2165
2160  S5=1-S5
2165  INPUT T1
2170  IF T1<1 THEN 2140
2175  IF T1>4 THEN 2140
2180  T1=INT(T1)
2185  IF S5=1 THEN 2330
2190  IF T1>1 THEN 2220
2195  M=M+20
2200  M1=M1-15
2205  B=B-150
2210  A=A-40
2215  GOTO 2395
2220  IF T1>2 THEN 2285
2225  GOSUB 4500
2230  B=B-B1*40-80
2235  IF B1>1 THEN 2250
2240  PRINT "NICE SHOOTING---YOU DROVE THEM OFF"
2245  GOTO 2395
2250  IF B1 <= 4 THEN 2275
2255  PRINT "LOUSY SHOT---YOU GOT KNIFED"
2260  K8=1
2265  PRINT "YOU HAVE TO SEE OL' DOC BLANCHARD"
2270  GOTO 2395
2275  PRINT "KINDA SLOW WITH YOUR COLT .45"
2280  GOTO 2395
2285  IF T1>3 THEN 2310
2290  IF RND(1)>.8 THEN 2390
2295  B=B-150
2300  M1=M1-15
2305  GOTO 2395
2310  GOSUB 4500
2315  B=B-B1*30-80
2320  M=M-25
2325  GOTO 2235
2330  IF T1>1 THEN 2350
2335  M=M+15
2340  A=A-10
2345  GOTO 2395
2350  IF T1>2 THEN 2370
2355  M=M-5
2360  B=B-100
2365  GOTO 2395
2370  IF T1>3 THEN 2380
2375  GOTO 2395
2380  M=M-20
2385  GOTO 2395
2390  PRINT "THEY DID NOT ATTACK"
2392  GOTO 2500
2395  IF S5=0 THEN 2410
2400  PRINT "RIDERS WERE FRIENDLY, BUT CHECK"
2402  PRINT "FOR POSSIBLE LOSSES"
2405  GOTO 2500
2410  PRINT "RIDERS WERE HOSTILE--CHECK FOR LOSSES"
2415  IF B >= 0 THEN 2500
2420  PRINT "YOU RAN OUT OF BULLETS AND GOT"
2422  PRINT "MASSACRED BY THE RIDERS"
2425  GOTO 3600
2499  REM ***SELECTION OF EVENTS***
2500  D1=0
2502  PRINT
2505  RESTORE
2510  R1=100*RND(1)
2515  D1=D1+1
2520  IF D1=16 THEN 3020
2525  READ D
2530  IF R1>D THEN 2515
2535  DATA 6,11,13,15,17,22,32,35,37,42,44,54,64,69,95
2537  IF D1>10 THEN 2545
2540  ON D1 GOTO 2550,2570,2590,2615,2630,2645,2660,2690,2785,2810
2545  ON D1-10 GOTO 2825,2860,2885,2970,2990,3020
2550  PRINT "WAGON BREAKS DOWN--LOSE TIME AND"
2552  PRINT "SUPPLIES FIXING IT"
2555  M=M-15-5*RND(1)
2560  M1=M1-8
2565  GOTO 3100
2570  PRINT "OX INJURES LEG---SLOWS YOU DOWN"
2572  PRINT "REST OF TRIP"
2575  M=M-25
2580  A=A-20
2585  GOTO 3100
2590  PRINT "BAD LUCK---YOUR DAUGHTER BROKE HER ARM"
2595  PRINT "YOU HAD TO STOP AND USE SUPPLIES TO"
2597  PRINT "MAKE A SLING"
2600  M=M-5-4*RND(1)
2605  M1=M1-2-3*RND(1)
2610  GOTO 3100
2615  PRINT "OX WANDERS OFF---SPEND TIME"
2617  PRINT "LOOKING FOR IT"
2620  M=M-17
2625  GOTO 3100
2630  PRINT "YOUR SON GETS LOST---SPEND HALF"
2632  PRINT "THE DAY LOOKING FOR HIM"
2635  M=M-10
2640  GOTO 3100
2645  PRINT "UNSAFE WATER--LOSE TIME LOOKING FOR"
2647  PRINT "CLEAN SPRING"
2650  M=M-10*RND(1)-2
2655  GOTO 3100
2660  IF M>950 THEN 2935
2665  PRINT "HEAVY RAINS---TIME AND SUPPLIES LOST"
2670  F=F-10
2672  B=B-500
2675  M1=M1-15
2680  M=M-10*RND(1)-5
2685  GOTO 3100
2690  PRINT "BANDITS ATTACK"
2700  GOSUB 4500
2705  B=B-20*B1
2715  IF B >= 0 THEN 2735
2720  PRINT "YOU RAN OUT OF BULLETS---THEY GET"
2722  PRINT "LOTS OF CASH"
2725  T=T/3
2730  GOTO 2740
2735  IF B1 <= 1 THEN 2770
2740  PRINT "YOU GOT SHOT IN THE LEG AND THEY"
2742  PRINT "TOOK ONE OF YOUR OXEN"
2745  K8=1
2750  PRINT "BETTER HAVE A DOC LOOK AT YOUR WOUND"
2755  M1=M1-5
2760  A=A-20
2765  GOTO 3100
2770  PRINT "QUICKEST DRAW OUTSIDE OF DODGE CITY!!!"
2775  PRINT "YOU GOT 'EM!"
2780  GOTO 3100
2785  PRINT "THERE WAS A FIRE IN YOUR WAGON--"
2787  PRINT "FOOD AND SUPPLIES DAMAGED"
2790  F=F-40
2792  B=B-400
2795  M1=M1-RND(1)*8-3
2800  M=M-15
2805  GOTO 3100
2810  PRINT "LOSE YOUR WAY IN HEAVY FOG---"
2812  PRINT "TIME IS LOST"
2815  M=M-10-5*RND(1)
2820  GOTO 3100
2825  PRINT "YOU KILLED A POISONOUS SNAKE"
2827  PRINT "AFTER IT BIT YOU"
2830  B=B-10
2835  M1=M1-5
2840  IF M1 >= 0 THEN 2855
2845  PRINT "YOU DIE OF SNAKEBITE SINCE YOU"
2847  PRINT "HAVE NO MEDICINE"
2850  GOTO 3600
2855  GOTO 3100
2860  PRINT "WAGON GETS SWAMPED FORDING RIVER--"
2862  PRINT "LOSE FOOD AND CLOTHES"
2865  F=F-30
2870  C=C-20
2875  M=M-20-20*RND(1)
2880  GOTO 3100
2885  PRINT "WILD ANIMALS ATTACK!"
2887  GOSUB 4500
2889  IF B>39 THEN 2895
2890  PRINT "YOU WERE TOO LOW ON BULLETS--"
2891  PRINT "THE WOLVES OVERPOWERED YOU"
2892  K8=1
2893  GOTO 3555
2895  IF B1>2 THEN 2910
2900  PRINT "NICE SHOOTIN' PARDNER---"
2902  PRINT "THEY DIDN'T GET MUCH"
2905  GOTO 2915
2910  PRINT "SLOW ON THE DRAW---THEY GOT AT"
2912  PRINT "YOUR FOOD AND CLOTHES"
2915  B=B-20*B1
2920  C=C-B1*4
2925  F=F-B1*8
2930  GOTO 3100
2935  PRINT "COLD WEATHER---BRRRRRRR!---YOU ";
2940  IF C>22+4*RND(1) THEN 2955
2945  PRINT "DON'T ";
2950  C1=1
2955  PRINT: PRINT "HAVE ENOUGH CLOTHING TO KEEP YOU WARM"
2960  IF C1=0 THEN 3100
2965  GOTO 4700
2970  PRINT "HAIL STORM---SUPPLIES DAMAGED"
2975  M=M-5-RND(1)*10
2977  B=B-200
2980  M1=M1-4-RND(1)*3
2985  GOTO 3100
2990  IF E=1 THEN 4700
2995  IF E=3 THEN 3010
3000  IF RND(1)>.25 THEN 4700
3005  GOTO 3100
3010  IF RND(1)<.5 THEN 4700
3015  GOTO 3100
3020  PRINT "HELPFUL INDIANS SHOW YOU WHERE"
3022  PRINT "TO FIND MORE FOOD"
3025  F=F+14
3030  GOTO 3100
3099  REM ***MOUNTAINS***
3100  IF M <= 950 THEN 700
3105  IF RND(1)*10>9-((M/100-15)^2+72)/((M/100-15)^2+12) THEN 3175
3110  PRINT "RUGGED MOUNTAINS"
3115  IF RND(1)>.1 THEN 3135
3120  PRINT "YOU GOT LOST---LOSE VALUABLE TIME"
3122  PRINT "TRYING TO FIND TRAIL!"
3125  M=M-60
3130  GOTO 3175
3135  IF RND(1)>.11 THEN 3160
3140  PRINT "WAGON DAMAGED!---LOSE TIME AND SUPPLIES"
3145  M1=M1-5
3147  B=B-200
3150  M=M-20-30*RND(1)
3155  GOTO 3175
3160  PRINT "THE GOING GETS SLOW"
3165  M=M-45-RND(1)/.02
3175  IF F1=1 THEN 3195
3180  F1=1
3185  IF RND(1)<.8 THEN 3300
3190  PRINT "YOU MADE IT SAFELY THROUGH"
3192  PRINT "SOUTH PASS--NO SNOW"
3195  IF M<1700 THEN 3215
3200  IF F2=1 THEN 3215
3205  F2=1
3210  IF RND(1)<.7 THEN 3300
3215  IF M>950 THEN 700
3220  M9=1
3225  GOTO 700
3300  PRINT "BLIZZARD IN MOUNTAIN PASS--"
3302  PRINT "TIME AND SUPPLIES LOST"
3305  L1=1
3310  F=F-25
3315  M1=M1-10
3317  B=B-300
3320  M=M-30-40*RND(1)
3325  IF C<18+2*RND(1) THEN 4700
3330  GOTO 3215
3499  REM ***DYING***
3500  PRINT: PRINT "YOU RAN OUT OF FOOD AND STARVED TO DEATH"
3505  GOTO 3600
3520  T=0
3525  PRINT: PRINT "YOU CAN'T AFFORD A DOCTOR"
3530  GOTO 3555
3550  PRINT: PRINT "YOU RAN OUT MEDICAL SUPPLIES"
3555  PRINT "YOU DIED OF ";
3560  IF K8=1 THEN 3575
3565  PRINT "PNEUMONIA"
3570  GOTO 3600
3575  PRINT "INJURIES"
3600  PRINT
3602  PRINT "DUE TO YOUR UNFORTUNATE SITUATION,"
3603  PRINT "THERE ARE A FEW FORMALITIES"
3605  PRINT "WE MUST GO THROUGH"
3610  PRINT
3615  PRINT "WOULD YOU LIKE A MINISTER";
3620  INPUT "? ";C$
3630  PRINT "WOULD YOU LIKE A FANCY FUNERAL";
3635  INPUT "? ";C$
3650  PRINT "WOULD YOU LIKE US TO INFORM YOUR"
3651  PRINT "NEXT OF KIN";
3652  INPUT "? ";C$
3654  IF C$="YES" OR C$="Y" THEN 3670
3656  PRINT "YOUR AUNT NELLIE IN ST. LOUIS IS"
3657  PRINT "ANXIOUS TO HEAR"
3670  PRINT: PRINT "WE THANK YOU FOR THIS INFORMATION"
3672  PRINT "AND WE ARE SORRY YOU DIDN'T MAKE"
3675  PRINT "IT TO THE GREAT TERRITORY OF OREGON."
3680  PRINT "BETTER LUCK NEXT TIME."
3685  PRINT
3690  PRINT
3695  PRINT "    SINCERELY,"
3700  PRINT
3705  PRINT "    THE OREGON CITY CHAMBER OF COMMERCE"
3707  SPEED = 255
3710  END
3999  REM ***FINAL TURN***
4000  F9=(2040-M2)/(M-M2)
4005  F=F+(1-F9)*(8+5*E)
4010  PRINT
4012  REM *BELLS IN LINES 4015, 4020*
4015  PRINT "YOU";G$;" FINALLY ARRI";G$;"VED AT ORE";G$;"GON CITY";G$
4020  PRINT "AFTER";G$;" 2040 LONG MILES";G$;"---HOORAY!!";G$;"!!!"
4025  PRINT
4030  F9=INT(F9*14)
4035  D3=D3*14+F9
4040  F9=F9+1
4045  IF F9<8 THEN 4055
4050  F9=F9-7
4055  ON F9 GOTO 4060,4070,4080,4090,4100,4110,4120
4060  PRINT "MONDAY ";
4065  GOTO 4125
4070  PRINT "TUESDAY ";
4075  GOTO 4125
4080  PRINT "WEDNESDAY ";
4085  GOTO 4125
4090  PRINT "THURSDAY ";
4095  GOTO 4125
4100  PRINT "FRIDAY ";
4105  GOTO 4125
4110  PRINT "SATURDAY ";
4115  GOTO 4125
4120  PRINT "SUNDAY ";
4125  IF D3>124 THEN 4145
4130  D3=D3-93
4135  PRINT "JULY ";D3;" 1847"
4140  GOTO 4215
4145  IF D3>155 THEN 4165
4150  D3=D3-124
4155  PRINT "AUGUST ";D3;" 1847"
4160  GOTO 4215
4165  IF D3>185 THEN 4185
4170  D3=D3-155
4175  PRINT "SEPTEMBER ";D3;" 1847"
4180  GOTO 4215
4185  IF D3>216 THEN 4205
4190  D3=D3-185
4195  PRINT "OCTOBER ";D3;" 1847"
4200  GOTO 4215
4205  D3=D3-216
4210  PRINT "NOVEMBER ";D3;" 1847"
4215  PRINT
4220  PRINT "FOOD  BULLETS  CLOTHING  SUPPLIES  CASH"
4230  IF B>0 THEN 4240
4235  B=0
4240  IF C>0 THEN 4250
4245  C=0
4250  IF M1>0 THEN 4260
4255  M1=0
4260  IF T>0 THEN 4270
4265  T=0
4270  IF F>0 THEN 4285
4275  F=0
4285  PRINT " ";INT(F);: HTAB 9: PRINT INT(B);: HTAB 19: PRINT INT(C);
4286  HTAB 29: PRINT INT(M1);: HTAB 37: PRINT INT(T): PRINT
4290  PRINT
4295  PRINT "PRESIDENT JAMES K. POLK SENDS YOU HIS"
4297  PRINT "      HEARTIEST CONGRATULATIONS"
4300  PRINT
4305  PRINT "AND WISHES YOU A PROSPEROUS LIFE AHEAD"
4315  PRINT "          AT YOUR NEW HOME"
4317  SPEED = 255
4320  END
4499  REM ***SHOOTING SUB-ROUTINE***
4500  PRINT "TYPE BANG: " +  CHR$(7);
4510  & "BANG",A%
4520 B1 = A% * 0.001: REM  MILLISECONDS TO SECONDS
4530  IF B1 > 7 THEN B1 = 7
4535  RETURN
4699  REM ***ILLNESS SUB-ROUTINE***
4700  IF 100*RND(1)<10+35*(E-1) THEN 4740
4705  IF 100*RND(1)<100-(40/4^(E-1)) THEN 4760
4715  PRINT "SERIOUS ILLNESS---"
4720  PRINT "YOU MUST STOP FOR MEDICAL ATTENTION"
4725  M1=M1-10
4730  S4=1
4735  GOTO 4780
4740  PRINT "MILD ILLNESS---MEDICINE USED"
4745  M=M-5
4750  M1=M1-2
4755  GOTO 4780
4760  PRINT "BAD ILLNESS---MEDICINE USED"
4765  M=M-5
4770  M1=M1-5
4780  IF M1<0 THEN 3550
4785  IF L1=1 THEN 3215
4790  GOTO 3100
4799  REM [CT] SET UP MACHINE LANGUAGE TIMER
4800  RESTORE: FOR D1=1 TO 15: READ D: NEXT: REM SKIP EVENT TABLE
4801 DATA 32,123,221,32,253,229,168,169
4802 DATA 141,153,160,3,152,240,12,136
4803 DATA 177,94,9,128,153,160,3,192
4804 DATA 0,208,244,169,0,133,6,133
4805 DATA 7,133,8,133,9,230,6,208
4806 DATA 15,230,7,208,11,230,8,208
4807 DATA 7,169,0,164,9,153,160,3
4808 DATA 173,0,192,201,128,144,230,141
4809 DATA 16,192,32,237,253,201,141,240
4810 DATA 12,164,9,217,160,3,208,213
4811 DATA 230,9,24,144,208,164,9,185
4812 DATA 160,3,201,141,240,10,169,255
4813 DATA 133,6,133,7,169,31,133,8
4814 DATA 6,6,38,7,38,8,6,6
4815 DATA 38,7,38,8,32,190,222,32
4816 DATA 227,223,32,249,234,32,106,221
4817 DATA 160,0,165,8,145,131,200,165
4818 DATA 7,145,131,96
4830  FOR D1=0 TO 139: READ D: POKE 768+D1,D: NEXT
4840  POKE 1014,0: POKE 1015,3 : REM [CT] SET UP AMPERSAND CALL
4850  RETURN
4860  REM [CT] USED TO PRINT OUT THE BYTES FOR THE ROUTINE AT $300
4870  FOR I = 0 TO 17: PRINT STR$(4801+I)+" DATA "; : FOR J = 0 TO 6: PRINT  PEEK(768 + 8*I + J);",";: NEXT : PRINT PEEK(768 + 8*I + 7): NEXT
4900  REM ***IDENDIFICATION OF VARIABLES IN THE PROGRAM***
4902  REM A = AMOUNT SPENT ON ANIMALS
4904  REM B = AMOUNT SPENT ON AMMUNITION
4906  REM B1 = ACTUAL RESPONSE TIME FOR INPUTING 'BANG'
4908  REM B2 = MAXIMUM RESPONSE TIME FOR INPUTING 'BANG'
4910  REM C = AMOUNT SPENT ON CLOTHING
4912  REM C1 = FLAG FOR INSUFFICIENT CLOTHING IN COLD WEATHER
4914  REM C$ = YES/NO RESPONSE TO QUESTIONS
4916  REM D1 = COUNTER IN GENERATING EVENTS
4918  REM D3 = TURN NUMBER FOR SETTING DATE
4920  REM D4 = CURRENT DATE
4922  REM E = CHOICE OF EATING
4924  REM F = AMOUNT SPENT ON FOOD
4926  REM F1 = FLAG FOR CLEARING SOUTH PASS
4928  REM F2 = FLAG FOR CLEARING BLUE MOUNTAINS
4930  REM F9 = FRACTION OF 2 WEEKS TRAVELED ON FINAL TURN
4932  REM K8 = FLAG FOR INJURY
4934  REM L1 = FLAG FOR BLIZZARD
4936  REM M = TOTAL MILEAGE WHOLE TRIP
4938  REM M1 = AMOUNT SPENT ON MISCELLANEOUS SUPPLIES
4940  REM M2 = TOTAL MILEAGE UP THROUGH PREVIOUS TURN
4942  REM M9 = FLAG FOR CLEARING SOUTH PASS IN SETTING MILEAGE
4944  REM P = AMOUNT SPENT ON ITEMS AT FORT
4946  REM R1 = RANDOM NUMBER IN CHOOSING EVENTS
4948  REM S4 = FLAG FOR ILLNESS
4950  REM S5 = 'HOSTILITY OF RIDERS' FACTOR
4952  REM T = CASH LEFT OVER AFTER INITIAL PURCHASES
4954  REM T1 = CHOICE OF TACTICS WHEN ATTACKED
4956  REM X = CHOICE OF ACTION FOR EACH TURN
4958  REM X1 = FLAG FOR FORT OPTION
5000  END